Celestin Apprentice 4/Apprentice-Release4.iso/Source Code/C/Applications/MacPerl 5.0.3/Preinstalled MacPerl (FAT)/lib/Sys/Hostname.pm

Text File | 1995-03-20 | 361 b | 26 lines | [TEXT/McPL]

# by David Sundstrom   [e-mail]
#    Texas Instruments

package Sys::Hostname;

use Carp;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(hostname);

#
# Try every conceivable way to get hostname.
#

sub hostname {

    # method 1 - we already know it
    return $host if defined $host;

    chop($host = `hostname`);

    $host;
}

1;